home *** CD-ROM | disk | FTP | other *** search
/ Compute! Gazette 1988 April / 1988-04.d64 / select rest.demo (.txt) < prev    next >
Commodore BASIC  |  2022-09-20  |  691b  |  20 lines
  1. 5 rem copyright 1988  compute! publications, inc.  all rights reserved.
  2. 10 print"[147]copyright 1988
  3. 12 [153]"compute! publications, inc.
  4. 14 print"all rights reserved."
  5. 15 for x=1 to 2000:next:print"[147]"
  6. 20 print chr$(147):print "reading data in ascending order...";
  7. 30 for rl=100 to 140 step 10:gosub 1000:read d$:print d$;:next rl
  8. 40 print:print:print "reading data in decending order...";
  9. 50 for rl=140 to 100 step -10:gosub 1000:read d$:print d$;:next rl
  10. 60 print:print:print "reading data in random order...";
  11. 70 for i=1 to 5:rl=int(rnd(1)*40)+100:gosub 1000:read d$:print d$;:next i
  12. 80 print:end
  13. 100 data first
  14. 110 data second
  15. 120 data third
  16. 130 data fourth
  17. 140 data fifth
  18. 1000 poke 785,232:poke 786,7:poke 209,232:poke 210,7:poke 211,0:poke 213,39
  19. 1010 print " s&$[146][223]hd[146][193]$[146][160]d[146][194][160]":sys 47083(rl),usr(0):return
  20.